00100	1	FORMAT(' @=OCTAL ')
00200	2	FORMAT(O)
00300	3	FORMAT(I)
00400	4	FORMAT(F)
00500	5	FORMAT(A1)
00600	6	FORMAT(A1,O)
00700	7	FORMAT(A1,I)
00800	10	TYPE 1
00900		ACCEPT 6,L,I
01000		IF(L.NE.'@')REREAD 3,I
01100		ACCEPT 6,N
01150		IF(N.EQ.'@')GO TO 24
01160		IF(N.EQ.' '.OR.N.EQ.'=')GO TO 25
01200		ACCEPT 6,L,M
01300	99	IF(L.NE.'@')REREAD 3,M
01400		IF(N.NE.'+')GO TO 21
01500		K=I+M
01600	30	TYPE 3,K
01700		GO TO 10
01800	21	IF(N.NE.'-')GO TO 22
01900		K=I-M
02000		GO TO 30
02100	22	IF(N.NE.'*'.AND.N.NE.'X')GO TO 23
02200		K=I*M
02300		GO TO 30
02400	23	IF(N.NE.'↑')GO TO 35
02500		K=I**M
02600		GO TO 30
02610	35	IF(N.NE.'/')GO TO 30
02620		A=I
02630		B=M
02640		X=A/B
02650		TYPE 4,X
02660		GO TO 10
02700	24	TYPE 2,I
02800		GO TO 10
02900	25	TYPE 3,I
03000		GO TO 10
03100		END